home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
qbsub10.arc
/
KEY.SUB
< prev
next >
Wrap
Text File
|
1986-06-24
|
2KB
|
61 lines
' KEY.SUB -- MSDOS QuickBASIC specialized keyboard subroutines 25 June 86
' by David L. Poskie (608) 274-9560
' 7118 Raymond Rd. Madison, WI 53719
' Please run any suggestions, corrections, additions, or changes by me.
' I can be messaged on all the major Madison, WI RBBS's.
'| Subroutines: TestCapslock -- check capslock state
'| CapslockOn -- turn capslock on
'| CapslockOff -- turn capslock off
'| TestNumlock -- check numlock state
'| NumlockOn -- turn numlock on
'| NumlockOff -- turn numlock off
'| Input: None -- calling the routine is all that's required
'| Output: IsCapslock = capslock flag (True if on, False if off)
'| IsNumlock = numlock flag (True if on, False if off)
'| Toggle key state occurs
' Test Capslock state
TestCapslock:
DEF SEG = &H40
IF PEEK(&H17) _
AND 64 _
THEN IsCapslock = True _
ELSE IsCapslock = False
RETURN
' Turn Capslock > > ON
CapslockOn:
DEF SEG = &H40
POKE(&H17) , PEEK(&H17) OR 64
RETURN
' Turn Capslock > > OFF
CapslockOff:
DEF SEG = &H40
POKE(&H17) , PEEK(&H17) AND 191
RETURN
' Test Numlock state
TestNumlock:
DEF SEG = &H40
IF PEEK(&H17) _
AND 32 _
THEN Numlock = True _
ELSE Numlock = False
RETURN
' Set Numlock >>> ON
NumlockOn:
DEF SEG = &H40
POKE &H17 , PEEK(&H17) OR 32
RETURN
' Set Numlock >>> OFF
NumlockOff:
DEF SEG = &H40
POKE &H17 , PEEK(&H17) AND 223
RETURN
' >>>> Physical EOF KEY.SUB 25 Jun 86